/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / tcl-mode.elc.z / tcl-mode.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 70 73 |piled by| kwzh@ps|
|00000020| 69 6c 6f 63 69 6e 2e 67 | 6e 75 2e 61 69 2e 6d 69 |ilocin.g|nu.ai.mi|
|00000030| 74 2e 65 64 75 20 6f 6e | 20 53 75 6e 20 4a 75 6c |t.edu on| Sun Jul|
|00000040| 20 20 37 20 32 30 3a 30 | 33 3a 34 35 20 31 39 39 |  7 20:0|3:45 199|
|00000050| 36 0a 3b 3b 3b 20 66 72 | 6f 6d 20 66 69 6c 65 20 |6.;;; fr|om file |
|00000060| 2f 67 64 2f 67 6e 75 2f | 65 6d 61 63 73 2f 31 39 |/gd/gnu/|emacs/19|
|00000070| 2e 30 2f 6c 69 73 70 2f | 74 63 6c 2d 6d 6f 64 65 |.0/lisp/|tcl-mode|
|00000080| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|00000090| 72 73 69 6f 6e 20 31 39 | 2e 33 31 2e 39 31 2e 31 |rsion 19|.31.91.1|
|000000a0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000b0| 65 72 73 69 6f 6e 20 46 | 53 46 20 32 2e 31 30 0a |ersion F|SF 2.10.|
|000000c0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000d0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|000000e0| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|000000f0| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000100| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000110| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000120| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000130| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000150| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000160| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|00000170| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|00000180| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 2e 32 |cs-versi|on "19.2|
|00000190| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))).  |  (error|
|000001a0| 20 22 60 74 63 6c 2d 6d | 6f 64 65 2e 65 6c 27 20 | "`tcl-m|ode.el' |
|000001b0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001c0| 20 45 6d 61 63 73 20 31 | 39 2e 32 39 20 6f 72 20 | Emacs 1|9.29 or |
|000001d0| 6c 61 74 65 72 22 29 29 | 0a 0a 0a 28 72 65 71 75 |later"))|...(requ|
|000001e0| 69 72 65 20 28 71 75 6f | 74 65 20 63 6f 6d 69 6e |ire (quo|te comin|
|000001f0| 74 29 29 0a 23 40 35 34 | 20 44 65 66 61 75 6c 74 |t)).#@54| Default|
|00000200| 20 74 63 6c 2f 74 6b 20 | 61 70 70 6c 69 63 61 74 | tcl/tk |applicat|
|00000210| 69 6f 6e 20 74 6f 20 72 | 75 6e 20 69 6e 20 74 63 |ion to r|un in tc|
|00000220| 6c 20 73 75 62 70 72 6f | 63 65 73 73 2e 1f 0a 28 |l subpro|cess...(|
|00000230| 64 65 66 76 61 72 20 74 | 63 6c 2d 64 65 66 61 75 |defvar t|cl-defau|
|00000240| 6c 74 2d 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 22 |lt-appli|cation "|
|00000250| 77 69 73 68 22 20 28 23 | 24 20 2e 20 35 30 35 29 |wish" (#|$ . 505)|
|00000260| 29 0a 23 40 37 38 20 43 | 6f 6d 6d 61 6e 64 20 73 |).#@78 C|ommand s|
|00000270| 77 69 74 63 68 65 73 20 | 66 6f 72 20 60 74 63 6c |witches |for `tcl|
|00000280| 2d 64 65 66 61 75 6c 74 | 2d 61 70 70 6c 69 63 61 |-default|-applica|
|00000290| 74 69 6f 6e 27 2e 0a 53 | 68 6f 75 6c 64 20 62 65 |tion'..S|hould be|
|000002a0| 20 61 20 6c 69 73 74 20 | 6f 66 20 73 74 72 69 6e | a list |of strin|
|000002b0| 67 73 2e 1f 0a 28 64 65 | 66 76 61 72 20 74 63 6c |gs...(de|fvar tcl|
|000002c0| 2d 64 65 66 61 75 6c 74 | 2d 63 6f 6d 6d 61 6e 64 |-default|-command|
|000002d0| 2d 73 77 69 74 63 68 65 | 73 20 6e 69 6c 20 28 23 |-switche|s nil (#|
|000002e0| 24 20 2e 20 36 31 35 29 | 29 0a 23 40 36 30 20 54 |$ . 615)|).#@60 T|
|000002f0| 68 65 20 61 63 74 69 76 | 65 20 74 63 6c 20 73 75 |he activ|e tcl su|
|00000300| 62 70 72 6f 63 65 73 73 | 20 63 6f 72 72 65 73 70 |bprocess| corresp|
|00000310| 6f 6e 64 69 6e 67 20 74 | 6f 20 63 75 72 72 65 6e |onding t|o curren|
|00000320| 74 20 62 75 66 66 65 72 | 2e 1f 0a 28 64 65 66 76 |t buffer|...(defv|
|00000330| 61 72 20 74 63 6c 2d 70 | 72 6f 63 65 73 73 20 6e |ar tcl-p|rocess n|
|00000340| 69 6c 20 28 23 24 20 2e | 20 37 35 31 29 29 0a 23 |il (#$ .| 751)).#|
|00000350| 40 37 31 20 42 75 66 66 | 65 72 20 75 73 65 64 20 |@71 Buff|er used |
|00000360| 66 6f 72 20 63 6f 6d 6d | 75 6e 69 63 61 74 69 6f |for comm|unicatio|
|00000370| 6e 20 77 69 74 68 20 74 | 63 6c 20 73 75 62 70 72 |n with t|cl subpr|
|00000380| 6f 63 65 73 73 20 66 6f | 72 20 63 75 72 72 65 6e |ocess fo|r curren|
|00000390| 74 20 62 75 66 66 65 72 | 2e 1f 0a 28 64 65 66 76 |t buffer|...(defv|
|000003a0| 61 72 20 74 63 6c 2d 70 | 72 6f 63 65 73 73 2d 62 |ar tcl-p|rocess-b|
|000003b0| 75 66 66 65 72 20 6e 69 | 6c 20 28 23 24 20 2e 20 |uffer ni|l (#$ . |
|000003c0| 38 35 32 29 29 0a 23 40 | 36 38 20 2a 4e 6f 6e 2d |852)).#@|68 *Non-|
|000003d0| 6e 69 6c 20 6d 65 61 6e | 73 20 64 69 73 70 6c 61 |nil mean|s displa|
|000003e0| 79 20 74 63 6c 2d 70 72 | 6f 63 65 73 73 2d 62 75 |y tcl-pr|ocess-bu|
|000003f0| 66 66 65 72 20 61 66 74 | 65 72 20 73 65 6e 64 69 |ffer aft|er sendi|
|00000400| 6e 67 20 61 20 63 6f 6d | 6d 61 6e 64 2e 1f 0a 28 |ng a com|mand...(|
|00000410| 64 65 66 76 61 72 20 74 | 63 6c 2d 61 6c 77 61 79 |defvar t|cl-alway|
|00000420| 73 2d 73 68 6f 77 20 74 | 20 28 23 24 20 2e 20 2d |s-show t| (#$ . -|
|00000430| 39 37 31 29 29 0a 23 40 | 32 38 20 4b 65 79 6d 61 |971)).#@|28 Keyma|
|00000440| 70 20 75 73 65 64 20 77 | 69 74 68 20 74 63 6c 20 |p used w|ith tcl |
|00000450| 6d 6f 64 65 2e 1f 0a 28 | 64 65 66 76 61 72 20 74 |mode...(|defvar t|
|00000460| 63 6c 2d 6d 6f 64 65 2d | 6d 61 70 20 6e 69 6c 20 |cl-mode-|map nil |
|00000470| 28 23 24 20 2e 20 31 30 | 38 33 29 29 0a 23 40 33 |(#$ . 10|83)).#@3|
|00000480| 35 20 50 72 65 66 69 78 | 20 66 6f 72 20 61 6c 6c |5 Prefix| for all|
|00000490| 20 74 63 6c 2d 6d 6f 64 | 65 20 63 6f 6d 6d 61 6e | tcl-mod|e comman|
|000004a0| 64 73 2e 1f 0a 28 64 65 | 66 76 61 72 20 74 63 6c |ds...(de|fvar tcl|
|000004b0| 2d 70 72 65 66 69 78 2d | 6b 65 79 20 22 03 22 20 |-prefix-|key "." |
|000004c0| 28 23 24 20 2e 20 31 31 | 35 34 29 29 0a 23 40 33 |(#$ . 11|54)).#@3|
|000004d0| 38 20 48 6f 6f 6b 73 20 | 63 61 6c 6c 65 64 20 77 |8 Hooks |called w|
|000004e0| 68 65 6e 20 74 63 6c 20 | 6d 6f 64 65 20 66 69 72 |hen tcl |mode fir|
|000004f0| 65 73 20 75 70 2e 1f 0a | 28 64 65 66 76 61 72 20 |es up...|(defvar |
|00000500| 74 63 6c 2d 6d 6f 64 65 | 2d 68 6f 6f 6b 20 6e 69 |tcl-mode|-hook ni|
|00000510| 6c 20 28 23 24 20 2e 20 | 31 32 33 34 29 29 0a 23 |l (#$ . |1234)).#|
|00000520| 40 34 38 20 53 74 61 72 | 74 20 6f 66 20 73 70 65 |@48 Star|t of spe|
|00000530| 63 69 61 6c 20 72 65 67 | 69 6f 6e 20 66 6f 72 20 |cial reg|ion for |
|00000540| 74 63 6c 20 63 6f 6d 6d | 75 6e 69 63 61 74 69 6f |tcl comm|unicatio|
|00000550| 6e 2e 1f 0a 28 64 65 66 | 76 61 72 20 74 63 6c 2d |n...(def|var tcl-|
|00000560| 72 65 67 69 6f 6e 2d 73 | 74 61 72 74 20 28 6d 61 |region-s|tart (ma|
|00000570| 6b 65 2d 6d 61 72 6b 65 | 72 29 20 28 23 24 20 2e |ke-marke|r) (#$ .|
|00000580| 20 31 33 31 36 29 29 0a | 23 40 34 36 20 45 6e 64 | 1316)).|#@46 End|
|00000590| 20 6f 66 20 73 70 65 63 | 69 61 6c 20 72 65 67 69 | of spec|ial regi|
|000005a0| 6f 6e 20 66 6f 72 20 74 | 63 6c 20 63 6f 6d 6d 75 |on for t|cl commu|
|000005b0| 6e 69 63 61 74 69 6f 6e | 2e 1f 0a 28 64 65 66 76 |nication|...(defv|
|000005c0| 61 72 20 74 63 6c 2d 72 | 65 67 69 6f 6e 2d 65 6e |ar tcl-r|egion-en|
|000005d0| 64 20 28 6d 61 6b 65 2d | 6d 61 72 6b 65 72 29 20 |d (make-|marker) |
|000005e0| 28 23 24 20 2e 20 31 34 | 32 31 29 29 0a 23 40 35 |(#$ . 14|21)).#@5|
|000005f0| 30 20 41 6d 6f 75 6e 74 | 20 62 79 20 77 68 69 63 |0 Amount| by whic|
|00000600| 68 20 74 63 6c 20 73 75 | 62 65 78 70 72 65 73 73 |h tcl su|bexpress|
|00000610| 69 6f 6e 73 20 61 72 65 | 20 69 6e 64 65 6e 74 65 |ions are| indente|
|00000620| 64 2e 1f 0a 28 64 65 66 | 76 61 72 20 74 63 6c 2d |d...(def|var tcl-|
|00000630| 69 6e 64 65 6e 74 2d 6c | 65 76 65 6c 20 34 20 28 |indent-l|evel 4 (|
|00000640| 23 24 20 2e 20 31 35 32 | 32 29 29 0a 23 40 34 34 |#$ . 152|2)).#@44|
|00000650| 20 44 65 66 61 75 6c 74 | 20 63 6f 6d 6d 61 6e 64 | Default| command|
|00000660| 20 75 73 65 64 20 77 68 | 65 6e 20 73 65 6e 64 69 | used wh|en sendi|
|00000670| 6e 67 20 72 65 67 69 6f | 6e 73 2e 1f 0a 28 64 65 |ng regio|ns...(de|
|00000680| 66 76 61 72 20 74 63 6c | 2d 64 65 66 61 75 6c 74 |fvar tcl|-default|
|00000690| 2d 65 76 61 6c 20 22 65 | 76 61 6c 22 20 28 23 24 |-eval "e|val" (#$|
|000006a0| 20 2e 20 31 36 31 37 29 | 29 0a 23 40 32 39 20 4b | . 1617)|).#@29 K|
|000006b0| 65 79 6d 61 70 20 66 6f | 72 20 74 63 6c 2d 6d 6f |eymap fo|r tcl-mo|
|000006c0| 64 65 27 73 20 6d 65 6e | 75 2e 1f 0a 28 64 65 66 |de's men|u...(def|
|000006d0| 76 61 72 20 74 63 6c 2d | 6d 6f 64 65 2d 6d 65 6e |var tcl-|mode-men|
|000006e0| 75 20 28 6d 61 6b 65 2d | 73 70 61 72 73 65 2d 6b |u (make-|sparse-k|
|000006f0| 65 79 6d 61 70 20 22 54 | 63 6c 2d 4d 6f 64 65 22 |eymap "T|cl-Mode"|
|00000700| 29 20 28 23 24 20 2e 20 | 31 37 31 31 29 29 0a 23 |) (#$ . |1711)).#|
|00000710| 40 34 38 20 44 65 66 61 | 75 6c 74 20 65 78 70 72 |@48 Defa|ult expr|
|00000720| 65 73 73 69 6f 6e 73 20 | 74 6f 20 68 69 67 68 6c |essions |to highl|
|00000730| 69 67 68 74 20 69 6e 20 | 54 43 4c 20 6d 6f 64 65 |ight in |TCL mode|
|00000740| 73 2e 1f 0a 28 64 65 66 | 76 61 72 20 74 63 6c 2d |s...(def|var tcl-|
|00000750| 66 6f 6e 74 2d 6c 6f 63 | 6b 2d 6b 65 79 77 6f 72 |font-loc|k-keywor|
|00000760| 64 73 20 28 71 75 6f 74 | 65 20 28 28 22 5c 5c 3c |ds (quot|e (("\\<|
|00000770| 5c 5c 28 69 74 63 6c 5f | 63 6c 61 73 73 5c 5c 7c |\\(itcl_|class\\||
|00000780| 6d 65 74 68 6f 64 5c 5c | 7c 70 72 6f 63 5c 5c 29 |method\\||proc\\)|
|00000790| 5c 5c 3e 5b 20 09 5d 2a | 5c 5c 28 5c 5c 73 77 2b |\\>[ .]*|\\(\\sw+|
|000007a0| 5c 5c 29 3f 22 20 28 31 | 20 66 6f 6e 74 2d 6c 6f |\\)?" (1| font-lo|
|000007b0| 63 6b 2d 6b 65 79 77 6f | 72 64 2d 66 61 63 65 29 |ck-keywo|rd-face)|
|000007c0| 20 28 32 20 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 66 75 | (2 font|-lock-fu|
|000007d0| 6e 63 74 69 6f 6e 2d 6e | 61 6d 65 2d 66 61 63 65 |nction-n|ame-face|
|000007e0| 20 6e 69 6c 20 74 29 29 | 20 22 5c 5c 3c 5c 5c 28 | nil t))| "\\<\\(|
|000007f0| 62 72 65 61 6b 5c 5c 7c | 63 5c 5c 28 61 73 65 5c |break\\||c\\(ase\|
|00000800| 5c 7c 6f 6e 5c 5c 28 73 | 74 72 75 63 74 6f 72 5c |\|on\\(s|tructor\|
|00000810| 5c 7c 74 69 6e 75 65 5c | 5c 29 5c 5c 29 5c 5c 7c |\|tinue\|\)\\)\\||
|00000820| 64 65 5c 5c 28 66 61 75 | 6c 74 5c 5c 7c 73 74 72 |de\\(fau|lt\\|str|
|00000830| 75 63 74 6f 72 5c 5c 29 | 5c 5c 7c 65 5c 5c 28 6c |uctor\\)|\\|e\\(l|
|00000840| 73 65 5c 5c 28 5c 5c 7c | 69 66 5c 5c 29 5c 5c 7c |se\\(\\||if\\)\\||
|00000850| 72 72 6f 72 5c 5c 7c 76 | 61 6c 5c 5c 7c 78 69 74 |rror\\|v|al\\|xit|
|00000860| 5c 5c 29 5c 5c 7c 66 6f | 72 5c 5c 28 5c 5c 7c 5f |\\)\\|fo|r\\(\\|_|
|00000870| 5c 5c 28 61 72 72 61 79 | 5f 6b 65 79 73 5c 5c 7c |\\(array|_keys\\||
|00000880| 66 69 6c 65 5c 5c 7c 72 | 65 63 75 72 73 69 76 65 |file\\|r|ecursive|
|00000890| 5f 67 6c 6f 62 5c 5c 29 | 5c 5c 7c 65 61 63 68 5c |_glob\\)|\\|each\|
|000008a0| 5c 29 5c 5c 7c 69 5c 5c | 28 5b 66 6e 5d 5c 5c 7c |\)\\|i\\|([fn]\\||
|000008b0| 74 63 6c 5f 63 6c 61 73 | 73 5c 5c 29 5c 5c 7c 6c |tcl_clas|s\\)\\|l|
|000008c0| 6f 6f 70 5c 5c 7c 70 72 | 6f 63 5c 5c 7c 72 65 74 |oop\\|pr|oc\\|ret|
|000008d0| 75 72 6e 5c 5c 7c 73 77 | 69 74 63 68 5c 5c 7c 74 |urn\\|sw|itch\\|t|
|000008e0| 68 65 6e 5c 5c 7c 75 70 | 6c 65 76 65 6c 5c 5c 7c |hen\\|up|level\\||
|000008f0| 77 68 69 6c 65 5c 5c 29 | 5c 5c 3e 22 20 28 22 5c |while\\)|\\>" ("\|
|00000900| 5c 3c 5c 5c 28 63 6f 6d | 6d 6f 6e 5c 5c 7c 67 6c |\<\\(com|mon\\|gl|
|00000910| 6f 62 61 6c 5c 5c 7c 69 | 6e 68 65 72 69 74 5c 5c |obal\\|i|nherit\\|
|00000920| 7c 70 5c 5c 28 72 6f 74 | 65 63 74 65 64 5c 5c 7c ||p\\(rot|ected\\||
|00000930| 75 62 6c 69 63 5c 5c 29 | 5c 5c 7c 75 70 76 61 72 |ublic\\)|\\|upvar|
|00000940| 5c 5c 29 5c 5c 3e 22 20 | 2e 20 66 6f 6e 74 2d 6c |\\)\\>" |. font-l|
|00000950| 6f 63 6b 2d 74 79 70 65 | 2d 66 61 63 65 29 29 29 |ock-type|-face)))|
|00000960| 20 28 23 24 20 2e 20 31 | 38 31 32 29 29 0a 23 40 | (#$ . 1|812)).#@|
|00000970| 37 33 20 49 6d 65 6e 75 | 20 67 65 6e 65 72 69 63 |73 Imenu| generic|
|00000980| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 66 6f 72 20 | express|ion for |
|00000990| 74 63 6c 2d 6d 6f 64 65 | 2e 20 20 53 65 65 20 60 |tcl-mode|.  See `|
|000009a0| 69 6d 65 6e 75 2d 67 65 | 6e 65 72 69 63 2d 65 78 |imenu-ge|neric-ex|
|000009b0| 70 72 65 73 73 69 6f 6e | 27 2e 1f 0a 28 64 65 66 |pression|'...(def|
|000009c0| 76 61 72 20 74 63 6c 2d | 69 6d 65 6e 75 2d 67 65 |var tcl-|imenu-ge|
|000009d0| 6e 65 72 69 63 2d 65 78 | 70 72 65 73 73 69 6f 6e |neric-ex|pression|
|000009e0| 20 28 71 75 6f 74 65 20 | 28 28 6e 69 6c 20 22 5e | (quote |((nil "^|
|000009f0| 5b 20 09 5d 2a 70 72 6f | 63 5b 20 09 5d 2b 5c 5c |[ .]*pro|c[ .]+\\|
|00000a00| 28 5c 5c 28 5c 5c 73 5f | 5c 5c 7c 5c 5c 73 77 5c |(\\(\\s_|\\|\\sw\|
|00000a10| 5c 29 2b 5c 5c 29 22 20 | 31 29 29 29 20 28 23 24 |\)+\\)" |1))) (#$|
|00000a20| 20 2e 20 32 34 31 39 29 | 29 0a 23 40 38 34 20 4d | . 2419)|).#@84 M|
|00000a30| 61 6a 6f 72 20 6d 6f 64 | 65 20 66 6f 72 20 65 64 |ajor mod|e for ed|
|00000a40| 69 74 69 6e 67 20 74 63 | 6c 20 73 63 72 69 70 74 |iting tc|l script|
|00000a50| 73 2e 0a 54 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |s..The f|ollowing|
|00000a60| 20 6b 65 79 73 20 61 72 | 65 20 62 6f 75 6e 64 3a | keys ar|e bound:|
|00000a70| 0a 5c 7b 74 63 6c 2d 6d | 6f 64 65 2d 6d 61 70 7d |.\{tcl-m|ode-map}|
|00000a80| 0a 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 63 |...(defa|lias 'tc|
|00000a90| 6c 2d 6d 6f 64 65 20 23 | 5b 6e 69 6c 20 22 c0 89 |l-mode #|[nil "..|
|00000aa0| 19 1a c3 20 88 c4 15 c6 | 16 07 c8 c9 21 c0 4c 88 |... ....|....!.L.|
|00000ab0| c8 ca 21 c0 4c 88 c8 cb | 21 88 c8 cc 21 cd 4c 88 |..!.L...|!...!.L.|
|00000ac0| c8 ce 21 cf 4c 88 c8 d0 | 21 d1 4c 88 c8 d2 21 d3 |..!.L...|!.L...!.|
|00000ad0| 4c 88 c8 d4 21 0e 15 4c | 88 c8 d6 21 88 0e 17 84 |L...!..L|...!....|
|00000ae0| 47 00 d8 20 88 d9 0e 17 | 21 88 da db 20 21 88 dc |G.. ....|!... !..|
|00000af0| dd de 5c 22 88 dc df e0 | 5c 22 88 8a 65 62 88 e1 |..\"....|\"..eb..|
|00000b00| e2 21 83 9d 00 c8 e3 21 | e4 94 e4 95 7b 4c 88 e5 |.!.....!|....{L..|
|00000b10| 94 83 f7 00 e5 94 62 88 | c8 cb 21 c0 4c 88 60 e5 |......b.|..!.L.`.|
|00000b20| 95 57 83 f7 00 e6 70 21 | 11 60 e5 95 58 83 7e 00 |.W....p!|.`..X.~.|
|00000b30| e7 0e 0b e8 09 21 43 5c | 22 16 0b 82 7e 00 67 dd |.....!C\|"...~.g.|
|00000b40| 3d 83 a9 00 e4 79 88 82 | 9d 00 6f 84 b0 00 e9 75 |=....y..|..o....u|
|00000b50| 88 68 ea 3d 83 f7 00 e4 | 75 88 e1 eb 21 83 f7 00 |.h.=....|u...!...|
|00000b60| c8 e3 21 e4 94 e4 95 7b | 4c 88 e5 94 83 f7 00 e5 |..!....{|L.......|
|00000b70| 94 62 88 c8 cb 21 c0 4c | 88 60 e5 95 57 83 f7 00 |.b...!.L|.`..W...|
|00000b80| e6 70 21 11 60 e5 95 58 | 83 d8 00 e7 0e 0b e8 09 |.p!.`..X|........|
|00000b90| 21 43 5c 22 16 0b 82 d8 | 00 29 ec ed 21 2a 87 22 |!C\"....|.)..!*."|
|00000ba0| 20 5b 6e 69 6c 20 73 20 | 73 77 69 74 63 68 65 73 | [nil s |switches|
|00000bb0| 20 6b 69 6c 6c 2d 61 6c | 6c 2d 6c 6f 63 61 6c 2d | kill-al|l-local-|
|00000bc0| 76 61 72 69 61 62 6c 65 | 73 20 74 63 6c 2d 6d 6f |variable|s tcl-mo|
|00000bd0| 64 65 20 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 22 54 |de major|-mode "T|
|00000be0| 43 4c 22 20 6d 6f 64 65 | 2d 6e 61 6d 65 20 6d 61 |CL" mode|-name ma|
|00000bf0| 6b 65 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ke-local|-variabl|
|00000c00| 65 20 74 63 6c 2d 70 72 | 6f 63 65 73 73 20 74 63 |e tcl-pr|ocess tc|
|00000c10| 6c 2d 70 72 6f 63 65 73 | 73 2d 62 75 66 66 65 72 |l-proces|s-buffer|
|00000c20| 20 74 63 6c 2d 64 65 66 | 61 75 6c 74 2d 63 6f 6d | tcl-def|ault-com|
|00000c30| 6d 61 6e 64 2d 73 77 69 | 74 63 68 65 73 20 69 6e |mand-swi|tches in|
|00000c40| 64 65 6e 74 2d 6c 69 6e | 65 2d 66 75 6e 63 74 69 |dent-lin|e-functi|
|00000c50| 6f 6e 20 74 63 6c 2d 69 | 6e 64 65 6e 74 2d 6c 69 |on tcl-i|ndent-li|
|00000c60| 6e 65 20 63 6f 6d 6d 65 | 6e 74 2d 73 74 61 72 74 |ne comme|nt-start|
|00000c70| 20 22 23 20 22 20 63 6f | 6d 6d 65 6e 74 2d 73 74 | "# " co|mment-st|
|00000c80| 61 72 74 2d 73 6b 69 70 | 20 22 23 20 2a 22 20 66 |art-skip| "# *" f|
|00000c90| 6f 6e 74 2d 6c 6f 63 6b | 2d 64 65 66 61 75 6c 74 |ont-lock|-default|
|00000ca0| 73 20 28 74 63 6c 2d 66 | 6f 6e 74 2d 6c 6f 63 6b |s (tcl-f|ont-lock|
|00000cb0| 2d 6b 65 79 77 6f 72 64 | 73 20 6e 69 6c 20 6e 69 |-keyword|s nil ni|
|00000cc0| 6c 20 28 28 39 35 20 2e | 20 22 77 22 29 29 29 20 |l ((95 .| "w"))) |
|00000cd0| 69 6d 65 6e 75 2d 67 65 | 6e 65 72 69 63 2d 65 78 |imenu-ge|neric-ex|
|00000ce0| 70 72 65 73 73 69 6f 6e | 20 74 63 6c 2d 69 6d 65 |pression| tcl-ime|
|00000cf0| 6e 75 2d 67 65 6e 65 72 | 69 63 2d 65 78 70 72 65 |nu-gener|ic-expre|
|00000d00| 73 73 69 6f 6e 20 74 63 | 6c 2d 64 65 66 61 75 6c |ssion tc|l-defaul|
|00000d10| 74 2d 65 76 61 6c 20 74 | 63 6c 2d 6d 6f 64 65 2d |t-eval t|cl-mode-|
|00000d20| 6d 61 70 20 74 63 6c 2d | 73 65 74 75 70 2d 6b 65 |map tcl-|setup-ke|
|00000d30| 79 6d 61 70 20 75 73 65 | 2d 6c 6f 63 61 6c 2d 6d |ymap use|-local-m|
|00000d40| 61 70 20 73 65 74 2d 73 | 79 6e 74 61 78 2d 74 61 |ap set-s|yntax-ta|
|00000d50| 62 6c 65 20 63 6f 70 79 | 2d 73 79 6e 74 61 78 2d |ble copy|-syntax-|
|00000d60| 74 61 62 6c 65 20 6d 6f | 64 69 66 79 2d 73 79 6e |table mo|dify-syn|
|00000d70| 74 61 78 2d 65 6e 74 72 | 79 20 33 35 20 22 3c 22 |tax-entr|y 35 "<"|
|00000d80| 20 31 30 20 22 3e 22 20 | 6c 6f 6f 6b 69 6e 67 2d | 10 ">" |looking-|
|00000d90| 61 74 20 22 23 21 5b 20 | 09 5d 2a 5c 5c 28 5b 5e |at "#![ |.]*\\([^|
|00000da0| 20 09 5d 2a 5c 5c 29 5b | 20 09 5d 5c 5c 28 2e 2a | .]*\\)[| .]\\(.*|
|00000db0| 5b 20 09 5d 5c 5c 29 2d | 66 22 20 74 63 6c 2d 64 |[ .]\\)-|f" tcl-d|
|00000dc0| 65 66 61 75 6c 74 2d 61 | 70 70 6c 69 63 61 74 69 |efault-a|pplicati|
|00000dd0| 6f 6e 20 31 20 32 20 72 | 65 61 64 20 61 70 70 65 |on 1 2 r|ead appe|
|00000de0| 6e 64 20 70 72 69 6e 31 | 2d 74 6f 2d 73 74 72 69 |nd prin1|-to-stri|
|00000df0| 6e 67 20 2d 31 20 39 32 | 20 22 65 78 65 63 5b 20 |ng -1 92| "exec[ |
|00000e00| 09 5d 2b 5c 5c 28 5b 5e | 20 09 5d 2a 5c 5c 29 5b |.]+\\([^| .]*\\)[|
|00000e10| 20 09 5d 5c 5c 28 2e 2a | 5b 20 09 5d 5c 5c 29 2a | .]\\(.*|[ .]\\)*|
|00000e20| 2d 66 22 20 72 75 6e 2d | 68 6f 6f 6b 73 20 74 63 |-f" run-|hooks tc|
|00000e30| 6c 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 5d 20 34 20 28 |l-mode-h|ook] 4 (|
|00000e40| 23 24 20 2e 20 32 36 30 | 37 29 20 6e 69 6c 5d 29 |#$ . 260|7) nil])|
|00000e50| 0a 23 40 31 36 35 20 53 | 65 74 20 75 70 20 6b 65 |.#@165 S|et up ke|
|00000e60| 79 6d 61 70 20 66 6f 72 | 20 74 63 6c 20 6d 6f 64 |ymap for| tcl mod|
|00000e70| 65 2e 0a 49 66 20 74 68 | 65 20 76 61 72 69 61 62 |e..If th|e variab|
|00000e80| 6c 65 20 60 74 63 6c 2d | 70 72 65 66 69 78 2d 6b |le `tcl-|prefix-k|
|00000e90| 65 79 27 20 69 73 20 6e | 69 6c 2c 20 74 68 65 20 |ey' is n|il, the |
|00000ea0| 62 69 6e 64 69 6e 67 73 | 20 67 6f 20 64 69 72 65 |bindings| go dire|
|00000eb0| 63 74 6c 79 0a 74 6f 20 | 60 74 63 6c 2d 6d 6f 64 |ctly.to |`tcl-mod|
|00000ec0| 65 2d 6d 61 70 27 2c 20 | 6f 74 68 65 72 77 69 73 |e-map', |otherwis|
|00000ed0| 65 20 74 68 65 79 20 61 | 72 65 20 70 72 65 66 69 |e they a|re prefi|
|00000ee0| 78 65 64 20 77 69 74 68 | 20 60 74 63 6c 2d 70 72 |xed with| `tcl-pr|
|00000ef0| 65 66 69 78 2d 6b 65 79 | 27 2e 1f 0a 28 64 65 66 |efix-key|'...(def|
|00000f00| 61 6c 69 61 73 20 27 74 | 63 6c 2d 73 65 74 75 70 |alias 't|cl-setup|
|00000f10| 2d 6b 65 79 6d 61 70 20 | 23 5b 6e 69 6c 20 22 c0 |-keymap |#[nil ".|
|00000f20| 20 11 c2 09 c3 c4 0d 42 | 23 88 0e 06 83 15 00 c0 | ......B|#.......|
|00000f30| 20 82 16 00 09 1e 07 c2 | 09 c8 c9 23 88 c2 0e 07 | .......|...#....|
|00000f40| ca cb 23 88 c2 0e 07 cc | cd 23 88 c2 0e 07 ce cf |..#.....|.#......|
|00000f50| 23 88 c2 0e 07 d0 d1 23 | 88 c2 0e 07 d2 d3 23 88 |#......#|......#.|
|00000f60| c2 0e 07 d4 d5 23 88 c2 | 0e 07 d6 d7 23 88 c2 0e |.....#..|....#...|
|00000f70| 07 d8 d9 23 88 c2 0e 07 | da db 23 88 c2 0e 07 dc |...#....|..#.....|
|00000f80| dd 23 88 c2 0e 07 de df | 23 88 c2 0e 07 e0 e1 23 |.#......|#......#|
|00000f90| 88 c2 0e 07 e2 e3 23 88 | c2 0e 07 e4 e5 23 88 0e |......#.|.....#..|
|00000fa0| 06 85 8c 00 c2 09 0e 06 | 0e 07 23 29 87 22 20 5b |........|..#)." [|
|00000fb0| 6d 61 6b 65 2d 73 70 61 | 72 73 65 2d 6b 65 79 6d |make-spa|rse-keym|
|00000fc0| 61 70 20 74 63 6c 2d 6d | 6f 64 65 2d 6d 61 70 20 |ap tcl-m|ode-map |
|00000fd0| 64 65 66 69 6e 65 2d 6b | 65 79 20 5b 6d 65 6e 75 |define-k|ey [menu|
|00000fe0| 2d 62 61 72 20 74 63 6c | 2d 6d 6f 64 65 5d 20 22 |-bar tcl|-mode] "|
|00000ff0| 54 63 6c 2d 4d 6f 64 65 | 22 20 74 63 6c 2d 6d 6f |Tcl-Mode|" tcl-mo|
|00001000| 64 65 2d 6d 65 6e 75 20 | 74 63 6c 2d 70 72 65 66 |de-menu |tcl-pref|
|00001010| 69 78 2d 6b 65 79 20 6d | 61 70 20 5b 31 32 35 5d |ix-key m|ap [125]|
|00001020| 20 74 63 6c 2d 65 6c 65 | 63 74 72 69 63 2d 62 72 | tcl-ele|ctric-br|
|00001030| 61 63 65 20 22 e5 22 20 | 74 63 6c 2d 73 65 6e 64 |ace "." |tcl-send|
|00001040| 2d 63 75 72 72 65 6e 74 | 2d 6c 69 6e 65 20 22 f2 |-current|-line ".|
|00001050| 22 20 74 63 6c 2d 73 65 | 6e 64 2d 72 65 67 69 6f |" tcl-se|nd-regio|
|00001060| 6e 20 22 f7 22 20 74 63 | 6c 2d 73 65 6e 64 2d 70 |n "." tc|l-send-p|
|00001070| 72 6f 63 20 22 e1 22 20 | 74 63 6c 2d 73 65 6e 64 |roc "." |tcl-send|
|00001080| 2d 62 75 66 66 65 72 20 | 22 f1 22 20 74 63 6c 2d |-buffer |"." tcl-|
|00001090| 6b 69 6c 6c 2d 70 72 6f | 63 65 73 73 20 22 f5 22 |kill-pro|cess "."|
|000010a0| 20 74 63 6c 2d 72 65 73 | 74 61 72 74 2d 77 69 74 | tcl-res|tart-wit|
|000010b0| 68 2d 77 68 6f 6c 65 2d | 66 69 6c 65 20 22 f3 22 |h-whole-|file "."|
|000010c0| 20 74 63 6c 2d 73 68 6f | 77 2d 70 72 6f 63 65 73 | tcl-sho|w-proces|
|000010d0| 73 2d 62 75 66 66 65 72 | 20 22 e8 22 20 74 63 6c |s-buffer| "." tcl|
|000010e0| 2d 68 69 64 65 2d 70 72 | 6f 63 65 73 73 2d 62 75 |-hide-pr|ocess-bu|
|000010f0| 66 66 65 72 20 22 e9 22 | 20 74 63 6c 2d 67 65 74 |ffer "."| tcl-get|
|00001100| 2d 65 72 72 6f 72 2d 69 | 6e 66 6f 20 22 db 22 20 |-error-i|nfo "." |
|00001110| 74 63 6c 2d 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |tcl-begi|nning-of|
|00001120| 2d 70 72 6f 63 20 22 dd | 22 20 74 63 6c 2d 65 6e |-proc ".|" tcl-en|
|00001130| 64 2d 6f 66 2d 70 72 6f | 63 20 22 93 22 20 74 63 |d-of-pro|c "." tc|
|00001140| 6c 2d 73 65 74 2d 74 63 | 6c 2d 72 65 67 69 6f 6e |l-set-tc|l-region|
|00001150| 2d 73 74 61 72 74 20 22 | 85 22 20 74 63 6c 2d 73 |-start "|." tcl-s|
|00001160| 65 74 2d 74 63 6c 2d 72 | 65 67 69 6f 6e 2d 65 6e |et-tcl-r|egion-en|
|00001170| 64 20 22 92 22 20 74 63 | 6c 2d 73 65 6e 64 2d 74 |d "." tc|l-send-t|
|00001180| 63 6c 2d 72 65 67 69 6f | 6e 5d 20 35 20 28 23 24 |cl-regio|n] 5 (#$|
|00001190| 20 2e 20 33 36 37 31 29 | 5d 29 0a 23 40 38 30 20 | . 3671)|]).#@80 |
|000011a0| 49 6e 64 65 6e 74 20 63 | 75 72 72 65 6e 74 20 6c |Indent c|urrent l|
|000011b0| 69 6e 65 20 61 73 20 74 | 63 6c 20 63 6f 64 65 2e |ine as t|cl code.|
|000011c0| 0a 52 65 74 75 72 6e 20 | 74 68 65 20 61 6d 6f 75 |.Return |the amou|
|000011d0| 6e 74 20 74 68 65 20 69 | 6e 64 65 6e 74 61 74 69 |nt the i|ndentati|
|000011e0| 6f 6e 20 63 68 61 6e 67 | 65 64 20 62 79 2e 1f 0a |on chang|ed by...|
|000011f0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 63 6c 2d 69 |(defalia|s 'tcl-i|
|00001200| 6e 64 65 6e 74 2d 6c 69 | 6e 65 20 23 5b 6e 69 6c |ndent-li|ne #[nil|
|00001210| 20 22 c0 c1 21 c1 89 89 | 64 60 5a 1a 1b 1c 1d 1e | "..!...|d`Z.....|
|00001220| 06 c7 79 88 60 15 c8 c1 | 77 88 8a 67 c9 3d 83 41 |..y.`...|w..g.=.A|
|00001230| 00 0e 06 0e 5c 6e 5a c7 | 5d 16 06 cb 75 88 cc cd |....\nZ.|]...u...|
|00001240| 21 83 19 00 cb 94 cb 95 | 7c 88 ce cf 0e 5c 6e 53 |!.......||....\nS|
|00001250| 5c 22 88 82 19 00 29 0e | 06 69 5a 89 14 c7 55 83 |\"....).|.iZ...U.|
|00001260| 5d 00 64 5c 6e 5a 60 56 | 83 72 00 64 5c 6e 5a 62 |].d\nZ`V|.r.d\nZb|
|00001270| 88 82 72 00 0d 60 7c 88 | 0e 06 6a 88 64 5c 6e 5a |..r..`|.|..j.d\nZ|
|00001280| 60 56 83 72 00 64 5c 6e | 5a 62 88 5c 66 2d 87 22 |`V.r.d\n|Zb.\f-."|
|00001290| 20 5b 74 63 6c 2d 63 61 | 6c 63 75 6c 61 74 65 2d | [tcl-ca|lculate-|
|000012a0| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 6e 69 6c 20 |indentat|ion nil |
|000012b0| 70 6f 73 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |pos case|-fold-se|
|000012c0| 61 72 63 68 20 73 68 69 | 66 74 2d 61 6d 74 20 62 |arch shi|ft-amt b|
|000012d0| 65 67 20 69 6e 64 65 6e | 74 20 30 20 22 20 09 22 |eg inden|t 0 " ."|
|000012e0| 20 31 32 35 20 74 63 6c | 2d 69 6e 64 65 6e 74 2d | 125 tcl|-indent-|
|000012f0| 6c 65 76 65 6c 20 31 20 | 6c 6f 6f 6b 69 6e 67 2d |level 1 |looking-|
|00001300| 61 74 20 22 5c 5c 28 5b | 20 09 5d 2a 5c 5c 29 7d |at "\\([| .]*\\)}|
|00001310| 22 20 69 6e 73 65 72 74 | 2d 63 68 61 72 20 33 32 |" insert|-char 32|
|00001320| 5d 20 37 20 28 23 24 20 | 2e 20 34 35 31 32 29 5d |] 7 (#$ |. 4512)]|
|00001330| 29 0a 23 40 31 32 31 20 | 52 65 74 75 72 6e 20 61 |).#@121 |Return a|
|00001340| 70 70 72 6f 70 72 69 61 | 74 65 20 69 6e 64 65 6e |ppropria|te inden|
|00001350| 74 61 74 69 6f 6e 20 66 | 6f 72 20 63 75 72 72 65 |tation f|or curre|
|00001360| 6e 74 20 6c 69 6e 65 20 | 61 73 20 74 63 6c 20 63 |nt line |as tcl c|
|00001370| 6f 64 65 2e 0a 49 6e 20 | 75 73 75 61 6c 20 63 61 |ode..In |usual ca|
|00001380| 73 65 20 72 65 74 75 72 | 6e 73 20 61 6e 20 69 6e |se retur|ns an in|
|00001390| 74 65 67 65 72 3a 20 74 | 68 65 20 63 6f 6c 75 6d |teger: t|he colum|
|000013a0| 6e 20 74 6f 20 69 6e 64 | 65 6e 74 20 74 6f 2e 1f |n to ind|ent to..|
|000013b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 63 6c 2d |.(defali|as 'tcl-|
|000013c0| 63 61 6c 63 75 6c 61 74 | 65 2d 69 6e 64 65 6e 74 |calculat|e-indent|
|000013d0| 61 74 69 6f 6e 20 23 5b | 28 26 6f 70 74 69 6f 6e |ation #[|(&option|
|000013e0| 61 6c 20 70 61 72 73 65 | 2d 73 74 61 72 74 29 20 |al parse|-start) |
|000013f0| 22 60 18 8a 09 83 5c 6e | 00 09 62 10 c2 79 88 6f |"`....\n|..b..y.o|
|00001400| 83 16 00 c3 20 82 88 00 | c4 75 88 68 c5 3d 83 44 |.... ...|.u.h.=.D|
|00001410| 00 c3 20 c2 79 88 6f 83 | 2f 00 0e 06 89 5c 5c 82 |.. .y.o.|/....\\.|
|00001420| 40 00 c4 75 88 68 c5 3d | 84 3f 00 0e 06 89 5c 5c |@..u.h.=|.?....\\|
|00001430| 82 40 00 c2 5c 5c 82 88 | 00 c7 75 88 c8 c9 ca cb |.@..\\..|..u.....|
|00001440| 23 83 7d 00 c3 20 8a c2 | 79 88 6f 3f 85 60 00 c4 |#.}.. ..|y.o?.`..|
|00001450| 75 88 68 c5 3d 29 83 6b | 00 0e 06 89 5c 5c 82 6c |u.h.=).k|....\\.l|
|00001460| 00 c2 5a 67 cc 3d 83 78 | 00 0e 06 82 79 00 c2 5c |..Zg.=.x|....y..\|
|00001470| 5c 82 88 00 08 62 88 c2 | 79 88 c4 79 88 c3 20 2a |\....b..|y..y.. *|
|00001480| 87 22 20 5b 70 6f 73 20 | 70 61 72 73 65 2d 73 74 |." [pos |parse-st|
|00001490| 61 72 74 20 30 20 63 75 | 72 72 65 6e 74 2d 69 6e |art 0 cu|rrent-in|
|000014a0| 64 65 6e 74 61 74 69 6f | 6e 20 2d 31 20 39 32 20 |dentatio|n -1 92 |
|000014b0| 74 63 6c 2d 69 6e 64 65 | 6e 74 2d 6c 65 76 65 6c |tcl-inde|nt-level|
|000014c0| 20 31 20 72 65 2d 73 65 | 61 72 63 68 2d 62 61 63 | 1 re-se|arch-bac|
|000014d0| 6b 77 61 72 64 20 22 5c | 5c 28 5e 5b 5e 20 09 5c |kward "\|\(^[^ .\|
|000014e0| 6e 0d 23 5d 5c 5c 29 5c | 5c 7c 5c 5c 28 7b 5c 5c |n.#]\\)\|\|\\({\\|
|000014f0| 73 20 2a 5b 23 5c 6e 5d | 5c 5c 29 5c 5c 7c 5c 5c |s *[#\n]|\\)\\|\\|
|00001500| 28 7d 5c 5c 73 20 2a 5c | 6e 5c 5c 29 22 20 6e 69 |(}\\s *\|n\\)" ni|
|00001510| 6c 20 74 20 31 32 33 5d | 20 34 20 28 23 24 20 2e |l t 123]| 4 (#$ .|
|00001520| 20 34 39 32 30 29 5d 29 | 0a 23 40 33 37 20 49 6e | 4920)])|.#@37 In|
|00001530| 73 65 72 74 20 60 7d 27 | 20 61 6e 64 20 69 6e 64 |sert `}'| and ind|
|00001540| 65 6e 74 20 6c 69 6e 65 | 20 66 6f 72 20 74 63 6c |ent line| for tcl|
|00001550| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 63 |...(defa|lias 'tc|
|00001560| 6c 2d 65 6c 65 63 74 72 | 69 63 2d 62 72 61 63 65 |l-electr|ic-brace|
|00001570| 20 23 5b 28 61 72 67 29 | 20 22 c0 c1 c2 0b 21 5c | #[(arg)| "....!\|
|00001580| 22 88 c4 20 88 c5 20 87 | 22 20 5b 69 6e 73 65 72 |".. .. .|" [inser|
|00001590| 74 2d 63 68 61 72 20 31 | 32 35 20 70 72 65 66 69 |t-char 1|25 prefi|
|000015a0| 78 2d 6e 75 6d 65 72 69 | 63 2d 76 61 6c 75 65 20 |x-numeri|c-value |
|000015b0| 61 72 67 20 74 63 6c 2d | 69 6e 64 65 6e 74 2d 6c |arg tcl-|indent-l|
|000015c0| 69 6e 65 20 62 6c 69 6e | 6b 2d 6d 61 74 63 68 69 |ine blin|k-matchi|
|000015d0| 6e 67 2d 6f 70 65 6e 5d | 20 34 20 28 23 24 20 2e |ng-open]| 4 (#$ .|
|000015e0| 20 35 34 32 32 29 20 22 | 50 22 5d 29 0a 23 40 32 | 5422) "|P"]).#@2|
|000015f0| 33 35 20 4d 6f 76 65 20 | 62 61 63 6b 77 61 72 64 |35 Move |backward|
|00001600| 20 74 6f 20 74 68 65 20 | 62 65 67 69 6e 6e 69 6e | to the |beginnin|
|00001610| 67 20 6f 66 20 61 20 74 | 63 6c 20 70 72 6f 63 20 |g of a t|cl proc |
|00001620| 28 6f 72 20 73 69 6d 69 | 6c 61 72 29 2e 0a 57 69 |(or simi|lar)..Wi|
|00001630| 74 68 20 61 72 67 75 6d | 65 6e 74 2c 20 64 6f 20 |th argum|ent, do |
|00001640| 69 74 20 74 68 61 74 20 | 6d 61 6e 79 20 74 69 6d |it that |many tim|
|00001650| 65 73 2e 20 20 4e 65 67 | 61 74 69 76 65 20 61 72 |es.  Neg|ative ar|
|00001660| 67 20 2d 4e 0a 6d 65 61 | 6e 73 20 6d 6f 76 65 20 |g -N.mea|ns move |
|00001670| 66 6f 72 77 61 72 64 20 | 74 6f 20 4e 74 68 20 66 |forward |to Nth f|
|00001680| 6f 6c 6c 6f 77 69 6e 67 | 20 62 65 67 69 6e 6e 69 |ollowing| beginni|
|00001690| 6e 67 20 6f 66 20 70 72 | 6f 63 2e 0a 52 65 74 75 |ng of pr|oc..Retu|
|000016a0| 72 6e 73 20 74 20 75 6e | 6c 65 73 73 20 73 65 61 |rns t un|less sea|
|000016b0| 72 63 68 20 73 74 6f 70 | 73 20 64 75 65 20 74 6f |rch stop|s due to|
|000016c0| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 72 20 65 6e | beginni|ng or en|
|000016d0| 64 20 6f 66 20 62 75 66 | 66 65 72 2e 1f 0a 28 64 |d of buf|fer...(d|
|000016e0| 65 66 61 6c 69 61 73 20 | 27 74 63 6c 2d 62 65 67 |efalias |'tcl-beg|
|000016f0| 69 6e 6e 69 6e 67 2d 6f | 66 2d 70 72 6f 63 20 23 |inning-o|f-proc #|
|00001700| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 61 72 67 29 |[(&optio|nal arg)|
|00001710| 20 22 08 84 06 00 c1 10 | c2 c3 1c 1d 08 c6 57 83 | "......|......W.|
|00001720| 19 00 c7 c8 21 83 19 00 | c1 75 88 08 c6 57 83 37 |....!...|.u...W.7|
|00001730| 00 c9 c8 c2 c3 23 83 2f | 00 08 54 10 c3 15 82 19 |.....#./|..T.....|
|00001740| 00 c2 14 c6 89 10 82 1a | 00 0d 83 3e 00 c6 79 88 |........|...>..y.|
|00001750| 08 c6 56 83 5b 00 ca c8 | c2 c3 23 83 53 00 08 53 |..V.[...|..#.S..S|
|00001760| 89 10 82 3f 00 c2 14 c6 | 89 10 82 3f 00 5c 66 2a |...?....|...?.\f*|
|00001770| 87 22 20 5b 61 72 67 20 | 31 20 6e 69 6c 20 74 20 |." [arg |1 nil t |
|00001780| 72 65 74 20 66 6f 75 6e | 64 20 30 20 6c 6f 6f 6b |ret foun|d 0 look|
|00001790| 69 6e 67 2d 61 74 20 22 | 5e 5b 5e 20 09 5c 6e 23 |ing-at "|^[^ .\n#|
|000017a0| 5d 5b 5e 5c 6e 5d 2a 7b | 5b 20 09 5d 2a 24 22 20 |][^\n]*{|[ .]*$" |
|000017b0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|000017c0| 64 20 72 65 2d 73 65 61 | 72 63 68 2d 62 61 63 6b |d re-sea|rch-back|
|000017d0| 77 61 72 64 5d 20 35 20 | 28 23 24 20 2e 20 35 36 |ward] 5 |(#$ . 56|
|000017e0| 31 39 29 20 22 50 22 5d | 29 0a 23 40 32 32 35 20 |19) "P"]|).#@225 |
|000017f0| 4d 6f 76 65 20 66 6f 72 | 77 61 72 64 20 74 6f 20 |Move for|ward to |
|00001800| 6e 65 78 74 20 65 6e 64 | 20 6f 66 20 74 63 6c 20 |next end| of tcl |
|00001810| 70 72 6f 63 20 28 6f 72 | 20 73 69 6d 69 6c 61 72 |proc (or| similar|
|00001820| 29 2e 0a 57 69 74 68 20 | 61 72 67 75 6d 65 6e 74 |)..With |argument|
|00001830| 2c 20 64 6f 20 69 74 20 | 74 68 61 74 20 6d 61 6e |, do it |that man|
|00001840| 79 20 74 69 6d 65 73 2e | 20 20 4e 65 67 61 74 69 |y times.|  Negati|
|00001850| 76 65 20 61 72 67 75 6d | 65 6e 74 20 2d 4e 20 6d |ve argum|ent -N m|
|00001860| 65 61 6e 73 20 6d 6f 76 | 65 0a 62 61 63 6b 20 74 |eans mov|e.back t|
|00001870| 6f 20 4e 74 68 20 70 72 | 65 63 65 64 69 6e 67 20 |o Nth pr|eceding |
|00001880| 65 6e 64 20 6f 66 20 70 | 72 6f 63 2e 0a 0a 54 68 |end of p|roc...Th|
|00001890| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 6a 75 73 74 |is funct|ion just|
|000018a0| 20 73 65 61 72 63 68 65 | 73 20 66 6f 72 20 61 20 | searche|s for a |
|000018b0| 60 7d 27 20 61 74 20 74 | 68 65 20 62 65 67 69 6e |`}' at t|he begin|
|000018c0| 6e 69 6e 67 20 6f 66 20 | 61 20 6c 69 6e 65 2e 1f |ning of |a line..|
|000018d0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 63 6c 2d |.(defali|as 'tcl-|
|000018e0| 65 6e 64 2d 6f 66 2d 70 | 72 6f 63 20 23 5b 28 26 |end-of-p|roc #[(&|
|000018f0| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 29 20 22 08 |optional| arg) ".|
|00001900| 84 06 00 c1 10 c2 c3 1c | 1d 08 c6 57 83 5c 22 00 |........|...W.\".|
|00001910| 6e 84 5c 22 00 8a c6 79 | 88 67 29 c7 3d 83 5c 22 |n.\"...y|.g).=.\"|
|00001920| 00 c8 75 88 08 c6 56 83 | 40 00 c9 ca c2 c3 23 83 |..u...V.|@.....#.|
|00001930| 38 00 08 53 10 c3 15 82 | 5c 22 00 c2 14 c6 89 10 |8..S....|\"......|
|00001940| 82 23 00 08 c6 57 83 5e | 00 cb ca c2 c3 23 83 56 |.#...W.^|.....#.V|
|00001950| 00 08 54 10 c3 15 82 40 | 00 c2 14 c6 89 10 82 41 |..T....@|.......A|
|00001960| 00 0d 83 65 00 c2 7f 88 | 5c 66 2a 87 22 20 5b 61 |...e....|\f*." [a|
|00001970| 72 67 20 31 20 6e 69 6c | 20 74 20 72 65 74 20 66 |rg 1 nil| t ret f|
|00001980| 6f 75 6e 64 20 30 20 31 | 32 35 20 2d 31 20 72 65 |ound 0 1|25 -1 re|
|00001990| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|000019a0| 22 5e 7d 22 20 72 65 2d | 73 65 61 72 63 68 2d 62 |"^}" re-|search-b|
|000019b0| 61 63 6b 77 61 72 64 5d | 20 35 20 28 23 24 20 2e |ackward]| 5 (#$ .|
|000019c0| 20 36 31 32 38 29 20 22 | 50 22 5d 29 0a 23 40 35 | 6128) "|P"]).#@5|
|000019d0| 30 20 53 74 61 72 74 20 | 61 20 74 63 6c 20 70 72 |0 Start |a tcl pr|
|000019e0| 6f 63 65 73 73 20 6e 61 | 6d 65 64 20 4e 41 4d 45 |ocess na|med NAME|
|000019f0| 2c 20 72 75 6e 6e 69 6e | 67 20 50 52 4f 47 52 41 |, runnin|g PROGRA|
|00001a00| 4d 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |M...(def|alias 't|
|00001a10| 63 6c 2d 73 74 61 72 74 | 2d 70 72 6f 63 65 73 73 |cl-start|-process|
|00001a20| 20 23 5b 28 6e 61 6d 65 | 20 70 72 6f 67 72 61 6d | #[(name| program|
|00001a30| 20 26 6f 70 74 69 6f 6e | 61 6c 20 73 74 61 72 74 | &option|al start|
|00001a40| 66 69 6c 65 20 26 72 65 | 73 74 20 73 77 69 74 63 |file &re|st switc|
|00001a50| 68 65 73 29 20 22 08 84 | 06 00 09 10 c2 c3 5c 66 |hes) "..|......\f|
|00001a60| 0d 0e 06 08 25 16 07 c8 | 0e 07 21 16 09 8a 0e 07 |....%...|..!.....|
|00001a70| 71 88 ca 89 16 0b 29 87 | 22 20 5b 73 77 69 74 63 |q.....).|" [switc|
|00001a80| 68 65 73 20 74 63 6c 2d | 64 65 66 61 75 6c 74 2d |hes tcl-|default-|
|00001a90| 63 6f 6d 6d 61 6e 64 2d | 73 77 69 74 63 68 65 73 |command-|switches|
|00001aa0| 20 61 70 70 6c 79 20 6d | 61 6b 65 2d 63 6f 6d 69 | apply m|ake-comi|
|00001ab0| 6e 74 20 6e 61 6d 65 20 | 70 72 6f 67 72 61 6d 20 |nt name |program |
|00001ac0| 73 74 61 72 74 66 69 6c | 65 20 74 63 6c 2d 70 72 |startfil|e tcl-pr|
|00001ad0| 6f 63 65 73 73 2d 62 75 | 66 66 65 72 20 67 65 74 |ocess-bu|ffer get|
|00001ae0| 2d 62 75 66 66 65 72 2d | 70 72 6f 63 65 73 73 20 |-buffer-|process |
|00001af0| 74 63 6c 2d 70 72 6f 63 | 65 73 73 20 22 5e 5b 5e |tcl-proc|ess "^[^|
|00001b00| 25 20 5d 2a 25 5c 5c 28 | 20 25 5c 5c 29 2a 20 2a |% ]*%\\(| %\\)* *|
|00001b10| 22 20 63 6f 6d 69 6e 74 | 2d 70 72 6f 6d 70 74 2d |" comint|-prompt-|
|00001b20| 72 65 67 65 78 70 5d 20 | 36 20 28 23 24 20 2e 20 |regexp] |6 (#$ . |
|00001b30| 36 36 31 30 29 5d 29 0a | 23 40 33 37 20 4b 69 6c |6610)]).|#@37 Kil|
|00001b40| 6c 20 74 63 6c 20 73 75 | 62 70 72 6f 63 65 73 73 |l tcl su|bprocess|
|00001b50| 20 61 6e 64 20 69 74 73 | 20 62 75 66 66 65 72 2e | and its| buffer.|
|00001b60| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 63 6c |..(defal|ias 'tcl|
|00001b70| 2d 6b 69 6c 6c 2d 70 72 | 6f 63 65 73 73 20 23 5b |-kill-pr|ocess #[|
|00001b80| 6e 69 6c 20 22 08 85 07 | 00 c1 08 21 87 22 20 5b |nil "...|...!." [|
|00001b90| 74 63 6c 2d 70 72 6f 63 | 65 73 73 2d 62 75 66 66 |tcl-proc|ess-buff|
|00001ba0| 65 72 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 5d 20 |er kill-|buffer] |
|00001bb0| 32 20 28 23 24 20 2e 20 | 36 39 37 33 29 20 6e 69 |2 (#$ . |6973) ni|
|00001bc0| 6c 5d 29 0a 23 40 35 37 | 20 53 65 74 20 73 74 61 |l]).#@57| Set sta|
|00001bd0| 72 74 20 6f 66 20 72 65 | 67 69 6f 6e 20 66 6f 72 |rt of re|gion for|
|00001be0| 20 75 73 65 20 77 69 74 | 68 20 60 74 63 6c 2d 73 | use wit|h `tcl-s|
|00001bf0| 65 6e 64 2d 74 63 6c 2d | 72 65 67 69 6f 6e 27 2e |end-tcl-|region'.|
|00001c00| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 63 6c |..(defal|ias 'tcl|
|00001c10| 2d 73 65 74 2d 74 63 6c | 2d 72 65 67 69 6f 6e 2d |-set-tcl|-region-|
|00001c20| 73 74 61 72 74 20 23 5b | 28 26 6f 70 74 69 6f 6e |start #[|(&option|
|00001c30| 61 6c 20 61 72 67 29 20 | 22 08 09 86 06 00 60 c2 |al arg) |".....`.|
|00001c40| 93 87 22 20 5b 74 63 6c | 2d 72 65 67 69 6f 6e 2d |.." [tcl|-region-|
|00001c50| 73 74 61 72 74 20 61 72 | 67 20 6e 69 6c 5d 20 33 |start ar|g nil] 3|
|00001c60| 20 28 23 24 20 2e 20 37 | 31 31 33 29 20 6e 69 6c | (#$ . 7|113) nil|
|00001c70| 5d 29 0a 23 40 35 35 20 | 53 65 74 20 65 6e 64 20 |]).#@55 |Set end |
|00001c80| 6f 66 20 72 65 67 69 6f | 6e 20 66 6f 72 20 75 73 |of regio|n for us|
|00001c90| 65 20 77 69 74 68 20 60 | 74 63 6c 2d 73 65 6e 64 |e with `|tcl-send|
|00001ca0| 2d 74 63 6c 2d 72 65 67 | 69 6f 6e 27 2e 1f 0a 28 |-tcl-reg|ion'...(|
|00001cb0| 64 65 66 61 6c 69 61 73 | 20 27 74 63 6c 2d 73 65 |defalias| 'tcl-se|
|00001cc0| 74 2d 74 63 6c 2d 72 65 | 67 69 6f 6e 2d 65 6e 64 |t-tcl-re|gion-end|
|00001cd0| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 61 72 | #[(&opt|ional ar|
|00001ce0| 67 29 20 22 08 09 86 06 | 00 60 c2 93 87 22 20 5b |g) "....|.`..." [|
|00001cf0| 74 63 6c 2d 72 65 67 69 | 6f 6e 2d 65 6e 64 20 61 |tcl-regi|on-end a|
|00001d00| 72 67 20 6e 69 6c 5d 20 | 33 20 28 23 24 20 2e 20 |rg nil] |3 (#$ . |
|00001d10| 37 32 38 38 29 20 6e 69 | 6c 5d 29 0a 23 40 31 32 |7288) ni|l]).#@12|
|00001d20| 32 20 53 65 6e 64 20 63 | 75 72 72 65 6e 74 20 6c |2 Send c|urrent l|
|00001d30| 69 6e 65 20 74 6f 20 74 | 63 6c 20 73 75 62 70 72 |ine to t|cl subpr|
|00001d40| 6f 63 65 73 73 2c 20 66 | 6f 75 6e 64 20 69 6e 20 |ocess, f|ound in |
|00001d50| 60 74 63 6c 2d 70 72 6f | 63 65 73 73 27 2e 0a 49 |`tcl-pro|cess'..I|
|00001d60| 66 20 60 74 63 6c 2d 70 | 72 6f 63 65 73 73 27 20 |f `tcl-p|rocess' |
|00001d70| 69 73 20 6e 69 6c 20 6f | 72 20 64 65 61 64 2c 20 |is nil o|r dead, |
|00001d80| 73 74 61 72 74 20 61 20 | 6e 65 77 20 70 72 6f 63 |start a |new proc|
|00001d90| 65 73 73 20 66 69 72 73 | 74 2e 1f 0a 28 64 65 66 |ess firs|t...(def|
|00001da0| 61 6c 69 61 73 20 27 74 | 63 6c 2d 73 65 6e 64 2d |alias 't|cl-send-|
|00001db0| 63 75 72 72 65 6e 74 2d | 6c 69 6e 65 20 23 5b 6e |current-|line #[n|
|00001dc0| 69 6c 20 22 8a c0 79 88 | 60 29 8a c1 7f 88 60 29 |il "..y.|`)....`)|
|00001dd0| 1a 1b 5c 66 83 1a 00 c5 | 5c 66 21 c6 3d 84 20 00 |..\f....|\f!.=. .|
|00001de0| c7 0e 08 89 5c 22 88 c9 | 5c 66 0b 5c 6e 7b 5c 22 |....\"..|\f.\n{\"|
|00001df0| 88 ca 79 88 0e 0b 85 33 | 00 cc 0e 0d 21 2a 87 22 |..y....3|....!*."|
|00001e00| 20 5b 30 20 6e 69 6c 20 | 65 6e 64 20 73 74 61 72 | [0 nil |end star|
|00001e10| 74 20 74 63 6c 2d 70 72 | 6f 63 65 73 73 20 70 72 |t tcl-pr|ocess pr|
|00001e20| 6f 63 65 73 73 2d 73 74 | 61 74 75 73 20 72 75 6e |ocess-st|atus run|
|00001e30| 20 74 63 6c 2d 73 74 61 | 72 74 2d 70 72 6f 63 65 | tcl-sta|rt-proce|
|00001e40| 73 73 20 74 63 6c 2d 64 | 65 66 61 75 6c 74 2d 61 |ss tcl-d|efault-a|
|00001e50| 70 70 6c 69 63 61 74 69 | 6f 6e 20 63 6f 6d 69 6e |pplicati|on comin|
|00001e60| 74 2d 73 69 6d 70 6c 65 | 2d 73 65 6e 64 20 31 20 |t-simple|-send 1 |
|00001e70| 74 63 6c 2d 61 6c 77 61 | 79 73 2d 73 68 6f 77 20 |tcl-alwa|ys-show |
|00001e80| 64 69 73 70 6c 61 79 2d | 62 75 66 66 65 72 20 74 |display-|buffer t|
|00001e90| 63 6c 2d 70 72 6f 63 65 | 73 73 2d 62 75 66 66 65 |cl-proce|ss-buffe|
|00001ea0| 72 5d 20 34 20 28 23 24 | 20 2e 20 37 34 35 38 29 |r] 4 (#$| . 7458)|
|00001eb0| 20 6e 69 6c 5d 29 0a 23 | 40 35 39 20 53 65 6e 64 | nil]).#|@59 Send|
|00001ec0| 20 72 65 67 69 6f 6e 20 | 74 6f 20 74 63 6c 20 73 | region |to tcl s|
|00001ed0| 75 62 70 72 6f 63 65 73 | 73 2c 20 77 72 61 70 70 |ubproces|s, wrapp|
|00001ee0| 65 64 20 69 6e 20 60 65 | 76 61 6c 20 7b 20 2e 2e |ed in `e|val { ..|
|00001ef0| 2e 20 7d 27 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |. }'...(|defalias|
|00001f00| 20 27 74 63 6c 2d 73 65 | 6e 64 2d 72 65 67 69 6f | 'tcl-se|nd-regio|
|00001f10| 6e 20 23 5b 28 73 74 61 | 72 74 20 65 6e 64 29 20 |n #[(sta|rt end) |
|00001f20| 22 08 83 5c 6e 00 c1 5c | 6e 21 84 0f 00 c3 5c 66 |"..\n..\|n!....\f|
|00001f30| 89 5c 22 88 c5 08 0e 06 | c7 0e 08 0e 09 7b ca 52 |.\".....|.....{.R|
|00001f40| 5c 22 88 0e 0b 85 25 00 | cc 5c 6e 21 87 22 20 5b |\"....%.|.\n!." [|
|00001f50| 74 63 6c 2d 70 72 6f 63 | 65 73 73 20 63 6f 6d 69 |tcl-proc|ess comi|
|00001f60| 6e 74 2d 63 68 65 63 6b | 2d 70 72 6f 63 20 74 63 |nt-check|-proc tc|
|00001f70| 6c 2d 70 72 6f 63 65 73 | 73 2d 62 75 66 66 65 72 |l-proces|s-buffer|
|00001f80| 20 74 63 6c 2d 73 74 61 | 72 74 2d 70 72 6f 63 65 | tcl-sta|rt-proce|
|00001f90| 73 73 20 74 63 6c 2d 64 | 65 66 61 75 6c 74 2d 61 |ss tcl-d|efault-a|
|00001fa0| 70 70 6c 69 63 61 74 69 | 6f 6e 20 63 6f 6d 69 6e |pplicati|on comin|
|00001fb0| 74 2d 73 69 6d 70 6c 65 | 2d 73 65 6e 64 20 74 63 |t-simple|-send tc|
|00001fc0| 6c 2d 64 65 66 61 75 6c | 74 2d 65 76 61 6c 20 22 |l-defaul|t-eval "|
|00001fd0| 20 7b 5c 6e 22 20 73 74 | 61 72 74 20 65 6e 64 20 | {\n" st|art end |
|00001fe0| 22 5c 6e 7d 22 20 74 63 | 6c 2d 61 6c 77 61 79 73 |"\n}" tc|l-always|
|00001ff0| 2d 73 68 6f 77 20 64 69 | 73 70 6c 61 79 2d 62 75 |-show di|splay-bu|
|00002000| 66 66 65 72 5d 20 36 20 | 28 23 24 20 2e 20 37 38 |ffer] 6 |(#$ . 78|
|00002010| 36 38 29 20 22 72 22 5d | 29 0a 23 40 37 30 20 53 |68) "r"]|).#@70 S|
|00002020| 65 6e 64 20 70 72 65 73 | 65 74 20 74 63 6c 20 72 |end pres|et tcl r|
|00002030| 65 67 69 6f 6e 20 74 6f | 20 74 63 6c 20 73 75 62 |egion to| tcl sub|
|00002040| 70 72 6f 63 65 73 73 2c | 20 77 72 61 70 70 65 64 |process,| wrapped|
|00002050| 20 69 6e 20 60 65 76 61 | 6c 20 7b 20 2e 2e 2e 20 | in `eva|l { ... |
|00002060| 7d 27 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |}'...(de|falias '|
|00002070| 74 63 6c 2d 73 65 6e 64 | 2d 74 63 6c 2d 72 65 67 |tcl-send|-tcl-reg|
|00002080| 69 6f 6e 20 23 5b 6e 69 | 6c 20 22 08 83 08 00 09 |ion #[ni|l ".....|
|00002090| 84 5c 66 00 c2 c3 21 88 | 5c 66 83 17 00 c5 0e 06 |.\f...!.|\f......|
|000020a0| 21 84 1d 00 c7 0e 08 89 | 5c 22 88 c9 5c 66 0e 5c |!.......|\"..\f.\|
|000020b0| 6e cb 08 09 7b cc 52 5c | 22 88 0e 0d 85 32 00 ce |n...{.R\|"....2..|
|000020c0| 0e 06 21 87 22 20 5b 74 | 63 6c 2d 72 65 67 69 6f |..!." [t|cl-regio|
|000020d0| 6e 2d 73 74 61 72 74 20 | 74 63 6c 2d 72 65 67 69 |n-start |tcl-regi|
|000020e0| 6f 6e 2d 65 6e 64 20 65 | 72 72 6f 72 20 22 74 63 |on-end e|rror "tc|
|000020f0| 6c 2d 72 65 67 69 6f 6e | 20 6e 6f 74 20 73 65 74 |l-region| not set|
|00002100| 22 20 74 63 6c 2d 70 72 | 6f 63 65 73 73 20 63 6f |" tcl-pr|ocess co|
|00002110| 6d 69 6e 74 2d 63 68 65 | 63 6b 2d 70 72 6f 63 20 |mint-che|ck-proc |
|00002120| 74 63 6c 2d 70 72 6f 63 | 65 73 73 2d 62 75 66 66 |tcl-proc|ess-buff|
|00002130| 65 72 20 74 63 6c 2d 73 | 74 61 72 74 2d 70 72 6f |er tcl-s|tart-pro|
|00002140| 63 65 73 73 20 74 63 6c | 2d 64 65 66 61 75 6c 74 |cess tcl|-default|
|00002150| 2d 61 70 70 6c 69 63 61 | 74 69 6f 6e 20 63 6f 6d |-applica|tion com|
|00002160| 69 6e 74 2d 73 69 6d 70 | 6c 65 2d 73 65 6e 64 20 |int-simp|le-send |
|00002170| 74 63 6c 2d 64 65 66 61 | 75 6c 74 2d 65 76 61 6c |tcl-defa|ult-eval|
|00002180| 20 22 20 7b 5c 6e 22 20 | 22 5c 6e 7d 22 20 74 63 | " {\n" |"\n}" tc|
|00002190| 6c 2d 61 6c 77 61 79 73 | 2d 73 68 6f 77 20 64 69 |l-always|-show di|
|000021a0| 73 70 6c 61 79 2d 62 75 | 66 66 65 72 5d 20 36 20 |splay-bu|ffer] 6 |
|000021b0| 28 23 24 20 2e 20 38 32 | 32 33 29 20 6e 69 6c 5d |(#$ . 82|23) nil]|
|000021c0| 29 0a 23 40 37 30 20 53 | 65 6e 64 20 70 72 6f 63 |).#@70 S|end proc|
|000021d0| 20 61 72 6f 75 6e 64 20 | 70 6f 69 6e 74 20 74 6f | around |point to|
|000021e0| 20 74 63 6c 20 73 75 62 | 70 72 6f 63 65 73 73 2c | tcl sub|process,|
|000021f0| 20 77 72 61 70 70 65 64 | 20 69 6e 20 60 65 76 61 | wrapped| in `eva|
|00002200| 6c 20 7b 20 2e 2e 2e 20 | 7d 27 2e 1f 0a 28 64 65 |l { ... |}'...(de|
|00002210| 66 61 6c 69 61 73 20 27 | 74 63 6c 2d 73 65 6e 64 |falias '|tcl-send|
|00002220| 2d 70 72 6f 63 20 23 5b | 6e 69 6c 20 22 c0 89 19 |-proc #[|nil "...|
|00002230| 1a 8a c3 20 88 60 12 c4 | 20 88 60 11 29 0d 83 1b |... .`..| .`.)...|
|00002240| 00 c6 0e 07 21 84 21 00 | c8 0e 09 89 5c 22 88 ca |....!.!.|....\"..|
|00002250| 0d 0e 0b cc 5c 6e 09 7b | cd 52 5c 22 88 0e 0e 85 |....\n.{|.R\"....|
|00002260| 36 00 cf 0e 07 21 2a 87 | 22 20 5b 6e 69 6c 20 65 |6....!*.|" [nil e|
|00002270| 6e 64 20 62 65 67 20 74 | 63 6c 2d 62 65 67 69 6e |nd beg t|cl-begin|
|00002280| 6e 69 6e 67 2d 6f 66 2d | 70 72 6f 63 20 74 63 6c |ning-of-|proc tcl|
|00002290| 2d 65 6e 64 2d 6f 66 2d | 70 72 6f 63 20 74 63 6c |-end-of-|proc tcl|
|000022a0| 2d 70 72 6f 63 65 73 73 | 20 63 6f 6d 69 6e 74 2d |-process| comint-|
|000022b0| 63 68 65 63 6b 2d 70 72 | 6f 63 20 74 63 6c 2d 70 |check-pr|oc tcl-p|
|000022c0| 72 6f 63 65 73 73 2d 62 | 75 66 66 65 72 20 74 63 |rocess-b|uffer tc|
|000022d0| 6c 2d 73 74 61 72 74 2d | 70 72 6f 63 65 73 73 20 |l-start-|process |
|000022e0| 74 63 6c 2d 64 65 66 61 | 75 6c 74 2d 61 70 70 6c |tcl-defa|ult-appl|
|000022f0| 69 63 61 74 69 6f 6e 20 | 63 6f 6d 69 6e 74 2d 73 |ication |comint-s|
|00002300| 69 6d 70 6c 65 2d 73 65 | 6e 64 20 74 63 6c 2d 64 |imple-se|nd tcl-d|
|00002310| 65 66 61 75 6c 74 2d 65 | 76 61 6c 20 22 20 7b 5c |efault-e|val " {\|
|00002320| 6e 22 20 22 5c 6e 7d 22 | 20 74 63 6c 2d 61 6c 77 |n" "\n}"| tcl-alw|
|00002330| 61 79 73 2d 73 68 6f 77 | 20 64 69 73 70 6c 61 79 |ays-show| display|
|00002340| 2d 62 75 66 66 65 72 5d | 20 36 20 28 23 24 20 2e |-buffer]| 6 (#$ .|
|00002350| 20 38 36 34 37 29 20 6e | 69 6c 5d 29 0a 23 40 36 | 8647) n|il]).#@6|
|00002360| 35 20 53 65 6e 64 20 77 | 68 6f 6c 65 20 62 75 66 |5 Send w|hole buf|
|00002370| 66 65 72 20 74 6f 20 74 | 63 6c 20 73 75 62 70 72 |fer to t|cl subpr|
|00002380| 6f 63 65 73 73 2c 20 77 | 72 61 70 70 65 64 20 69 |ocess, w|rapped i|
|00002390| 6e 20 60 65 76 61 6c 20 | 7b 20 2e 2e 2e 20 7d 27 |n `eval |{ ... }'|
|000023a0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 63 |...(defa|lias 'tc|
|000023b0| 6c 2d 73 65 6e 64 2d 62 | 75 66 66 65 72 20 23 5b |l-send-b|uffer #[|
|000023c0| 6e 69 6c 20 22 08 83 5c | 6e 00 c1 5c 6e 21 84 0f |nil "..\|n..\n!..|
|000023d0| 00 c3 5c 66 89 5c 22 88 | c5 20 83 23 00 c6 08 0e |..\f.\".|. .#....|
|000023e0| 07 c8 65 64 7b c9 52 5c | 22 88 82 2c 00 c6 08 ca |..ed{.R\|"..,....|
|000023f0| cb 20 cc 51 5c 22 88 0e | 0d 85 34 00 ce 5c 6e 21 |. .Q\"..|..4..\n!|
|00002400| 87 22 20 5b 74 63 6c 2d | 70 72 6f 63 65 73 73 20 |." [tcl-|process |
|00002410| 63 6f 6d 69 6e 74 2d 63 | 68 65 63 6b 2d 70 72 6f |comint-c|heck-pro|
|00002420| 63 20 74 63 6c 2d 70 72 | 6f 63 65 73 73 2d 62 75 |c tcl-pr|ocess-bu|
|00002430| 66 66 65 72 20 74 63 6c | 2d 73 74 61 72 74 2d 70 |ffer tcl|-start-p|
|00002440| 72 6f 63 65 73 73 20 74 | 63 6c 2d 64 65 66 61 75 |rocess t|cl-defau|
|00002450| 6c 74 2d 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 62 |lt-appli|cation b|
|00002460| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00002470| 20 63 6f 6d 69 6e 74 2d | 73 69 6d 70 6c 65 2d 73 | comint-|simple-s|
|00002480| 65 6e 64 20 74 63 6c 2d | 64 65 66 61 75 6c 74 2d |end tcl-|default-|
|00002490| 65 76 61 6c 20 22 20 7b | 5c 6e 22 20 22 5c 6e 7d |eval " {|\n" "\n}|
|000024a0| 22 20 22 73 6f 75 72 63 | 65 20 22 20 62 75 66 66 |" "sourc|e " buff|
|000024b0| 65 72 2d 66 69 6c 65 2d | 6e 61 6d 65 20 22 5c 6e |er-file-|name "\n|
|000024c0| 22 20 74 63 6c 2d 61 6c | 77 61 79 73 2d 73 68 6f |" tcl-al|ways-sho|
|000024d0| 77 20 64 69 73 70 6c 61 | 79 2d 62 75 66 66 65 72 |w displa|y-buffer|
|000024e0| 5d 20 36 20 28 23 24 20 | 2e 20 39 30 35 38 29 20 |] 6 (#$ |. 9058) |
|000024f0| 6e 69 6c 5d 29 0a 23 40 | 37 35 20 53 65 6e 64 20 |nil]).#@|75 Send |
|00002500| 73 74 72 69 6e 67 20 60 | 73 65 74 20 65 72 72 6f |string `|set erro|
|00002510| 72 49 6e 66 6f 27 20 74 | 6f 20 74 63 6c 20 73 75 |rInfo' t|o tcl su|
|00002520| 62 70 72 6f 63 65 73 73 | 20 61 6e 64 20 64 69 73 |bprocess| and dis|
|00002530| 70 6c 61 79 20 74 68 65 | 20 74 63 6c 20 62 75 66 |play the| tcl buf|
|00002540| 66 65 72 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |fer...(d|efalias |
|00002550| 27 74 63 6c 2d 67 65 74 | 2d 65 72 72 6f 72 2d 69 |'tcl-get|-error-i|
|00002560| 6e 66 6f 20 23 5b 6e 69 | 6c 20 22 08 83 5c 6e 00 |nfo #[ni|l "..\n.|
|00002570| c1 5c 6e 21 84 0f 00 c3 | 5c 66 89 5c 22 88 c5 08 |.\n!....|\f.\"...|
|00002580| c6 5c 22 88 c7 5c 6e 21 | 87 22 20 5b 74 63 6c 2d |.\"..\n!|." [tcl-|
|00002590| 70 72 6f 63 65 73 73 20 | 63 6f 6d 69 6e 74 2d 63 |process |comint-c|
|000025a0| 68 65 63 6b 2d 70 72 6f | 63 20 74 63 6c 2d 70 72 |heck-pro|c tcl-pr|
|000025b0| 6f 63 65 73 73 2d 62 75 | 66 66 65 72 20 74 63 6c |ocess-bu|ffer tcl|
|000025c0| 2d 73 74 61 72 74 2d 70 | 72 6f 63 65 73 73 20 74 |-start-p|rocess t|
|000025d0| 63 6c 2d 64 65 66 61 75 | 6c 74 2d 61 70 70 6c 69 |cl-defau|lt-appli|
|000025e0| 63 61 74 69 6f 6e 20 63 | 6f 6d 69 6e 74 2d 73 69 |cation c|omint-si|
|000025f0| 6d 70 6c 65 2d 73 65 6e | 64 20 22 73 65 74 20 65 |mple-sen|d "set e|
|00002600| 72 72 6f 72 49 6e 66 6f | 5c 6e 22 20 64 69 73 70 |rrorInfo|\n" disp|
|00002610| 6c 61 79 2d 62 75 66 66 | 65 72 5d 20 33 20 28 23 |lay-buff|er] 3 (#|
|00002620| 24 20 2e 20 39 34 36 37 | 29 20 6e 69 6c 5d 29 0a |$ . 9467|) nil]).|
|00002630| 23 40 35 34 20 52 65 73 | 74 61 72 74 20 74 63 6c |#@54 Res|tart tcl|
|00002640| 20 73 75 62 70 72 6f 63 | 65 73 73 20 61 6e 64 20 | subproc|ess and |
|00002650| 73 65 6e 64 20 77 68 6f | 6c 65 20 66 69 6c 65 20 |send who|le file |
|00002660| 61 73 20 69 6e 70 75 74 | 2e 1f 0a 28 64 65 66 61 |as input|...(defa|
|00002670| 6c 69 61 73 20 27 74 63 | 6c 2d 72 65 73 74 61 72 |lias 'tc|l-restar|
|00002680| 74 2d 77 69 74 68 2d 77 | 68 6f 6c 65 2d 66 69 6c |t-with-w|hole-fil|
|00002690| 65 20 23 5b 6e 69 6c 20 | 22 c0 20 88 c1 5c 6e 89 |e #[nil |". ..\n.|
|000026a0| 5c 22 88 c3 20 87 22 20 | 5b 74 63 6c 2d 6b 69 6c |\".. ." |[tcl-kil|
|000026b0| 6c 2d 70 72 6f 63 65 73 | 73 20 74 63 6c 2d 73 74 |l-proces|s tcl-st|
|000026c0| 61 72 74 2d 70 72 6f 63 | 65 73 73 20 74 63 6c 2d |art-proc|ess tcl-|
|000026d0| 64 65 66 61 75 6c 74 2d | 61 70 70 6c 69 63 61 74 |default-|applicat|
|000026e0| 69 6f 6e 20 74 63 6c 2d | 73 65 6e 64 2d 62 75 66 |ion tcl-|send-buf|
|000026f0| 66 65 72 5d 20 33 20 28 | 23 24 20 2e 20 39 37 38 |fer] 3 (|#$ . 978|
|00002700| 31 29 20 6e 69 6c 5d 29 | 0a 23 40 35 32 20 4d 61 |1) nil])|.#@52 Ma|
|00002710| 6b 65 20 73 75 72 65 20 | 60 74 63 6c 2d 70 72 6f |ke sure |`tcl-pro|
|00002720| 63 65 73 73 2d 62 75 66 | 66 65 72 27 20 69 73 20 |cess-buf|fer' is |
|00002730| 62 65 69 6e 67 20 64 69 | 73 70 6c 61 79 65 64 2e |being di|splayed.|
|00002740| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 63 6c |..(defal|ias 'tcl|
|00002750| 2d 73 68 6f 77 2d 70 72 | 6f 63 65 73 73 2d 62 75 |-show-pr|ocess-bu|
|00002760| 66 66 65 72 20 23 5b 6e | 69 6c 20 22 c0 09 21 87 |ffer #[n|il "..!.|
|00002770| 22 20 5b 64 69 73 70 6c | 61 79 2d 62 75 66 66 65 |" [displ|ay-buffe|
|00002780| 72 20 74 63 6c 2d 70 72 | 6f 63 65 73 73 2d 62 75 |r tcl-pr|ocess-bu|
|00002790| 66 66 65 72 5d 20 32 20 | 28 23 24 20 2e 20 39 39 |ffer] 2 |(#$ . 99|
|000027a0| 39 38 29 20 6e 69 6c 5d | 29 0a 23 40 35 35 20 44 |98) nil]|).#@55 D|
|000027b0| 65 6c 65 74 65 20 61 6c | 6c 20 77 69 6e 64 6f 77 |elete al|l window|
|000027c0| 73 20 74 68 61 74 20 64 | 69 73 70 6c 61 79 20 60 |s that d|isplay `|
|000027d0| 74 63 6c 2d 70 72 6f 63 | 65 73 73 2d 62 75 66 66 |tcl-proc|ess-buff|
|000027e0| 65 72 27 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |er'...(d|efalias |
|000027f0| 27 74 63 6c 2d 68 69 64 | 65 2d 70 72 6f 63 65 73 |'tcl-hid|e-proces|
|00002800| 73 2d 62 75 66 66 65 72 | 20 23 5b 6e 69 6c 20 22 |s-buffer| #[nil "|
|00002810| c0 09 21 87 22 20 5b 64 | 65 6c 65 74 65 2d 77 69 |..!." [d|elete-wi|
|00002820| 6e 64 6f 77 73 2d 6f 6e | 20 74 63 6c 2d 70 72 6f |ndows-on| tcl-pro|
|00002830| 63 65 73 73 2d 62 75 66 | 66 65 72 5d 20 32 20 28 |cess-buf|fer] 2 (|
|00002840| 23 24 20 2e 20 31 30 31 | 35 39 29 20 6e 69 6c 5d |#$ . 101|59) nil]|
|00002850| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 09 |).(byte-|code "..|
|00002860| c2 c3 23 88 c0 09 c4 c5 | 23 88 c0 09 c6 c7 23 88 |..#.....|#.....#.|
|00002870| c0 09 c8 c9 23 88 c0 09 | ca cb 23 88 c0 09 cc cd |....#...|..#.....|
|00002880| 23 88 c0 09 ce cf 23 88 | c0 09 d0 d1 23 88 c0 09 |#.....#.|....#...|
|00002890| d2 d3 23 88 c0 09 d4 d5 | 23 88 c0 09 d6 d7 23 88 |..#.....|#.....#.|
|000028a0| c0 09 d8 d9 23 88 c0 09 | da db 23 88 c0 09 dc dd |....#...|..#.....|
|000028b0| 23 88 de df 21 87 22 20 | 5b 64 65 66 69 6e 65 2d |#...!." |[define-|
|000028c0| 6b 65 79 20 74 63 6c 2d | 6d 6f 64 65 2d 6d 65 6e |key tcl-|mode-men|
|000028d0| 75 20 5b 72 65 73 74 61 | 72 74 2d 77 69 74 68 2d |u [resta|rt-with-|
|000028e0| 77 68 6f 6c 65 2d 66 69 | 6c 65 5d 20 28 22 52 65 |whole-fi|le] ("Re|
|000028f0| 73 74 61 72 74 20 57 69 | 74 68 20 57 68 6f 6c 65 |start Wi|th Whole|
|00002900| 20 46 69 6c 65 22 20 2e | 20 74 63 6c 2d 72 65 73 | File" .| tcl-res|
|00002910| 74 61 72 74 2d 77 69 74 | 68 2d 77 68 6f 6c 65 2d |tart-wit|h-whole-|
|00002920| 66 69 6c 65 29 20 5b 6b | 69 6c 6c 2d 70 72 6f 63 |file) [k|ill-proc|
|00002930| 65 73 73 5d 20 28 22 4b | 69 6c 6c 20 50 72 6f 63 |ess] ("K|ill Proc|
|00002940| 65 73 73 22 20 2e 20 74 | 63 6c 2d 6b 69 6c 6c 2d |ess" . t|cl-kill-|
|00002950| 70 72 6f 63 65 73 73 29 | 20 5b 68 69 64 65 2d 70 |process)| [hide-p|
|00002960| 72 6f 63 65 73 73 2d 62 | 75 66 66 65 72 5d 20 28 |rocess-b|uffer] (|
|00002970| 22 48 69 64 65 20 50 72 | 6f 63 65 73 73 20 42 75 |"Hide Pr|ocess Bu|
|00002980| 66 66 65 72 22 20 2e 20 | 74 63 6c 2d 68 69 64 65 |ffer" . |tcl-hide|
|00002990| 2d 70 72 6f 63 65 73 73 | 2d 62 75 66 66 65 72 29 |-process|-buffer)|
|000029a0| 20 5b 67 65 74 2d 65 72 | 72 6f 72 2d 69 6e 66 6f | [get-er|ror-info|
|000029b0| 5d 20 28 22 47 65 74 20 | 45 72 72 6f 72 20 49 6e |] ("Get |Error In|
|000029c0| 66 6f 22 20 2e 20 74 63 | 6c 2d 67 65 74 2d 65 72 |fo" . tc|l-get-er|
|000029d0| 72 6f 72 2d 69 6e 66 6f | 29 20 5b 73 68 6f 77 2d |ror-info|) [show-|
|000029e0| 70 72 6f 63 65 73 73 2d | 62 75 66 66 65 72 5d 20 |process-|buffer] |
|000029f0| 28 22 53 68 6f 77 20 50 | 72 6f 63 65 73 73 20 42 |("Show P|rocess B|
|00002a00| 75 66 66 65 72 22 20 2e | 20 74 63 6c 2d 73 68 6f |uffer" .| tcl-sho|
|00002a10| 77 2d 70 72 6f 63 65 73 | 73 2d 62 75 66 66 65 72 |w-proces|s-buffer|
|00002a20| 29 20 5b 65 6e 64 2d 6f | 66 2d 70 72 6f 63 5d 20 |) [end-o|f-proc] |
|00002a30| 28 22 45 6e 64 20 4f 66 | 20 50 72 6f 63 22 20 2e |("End Of| Proc" .|
|00002a40| 20 74 63 6c 2d 65 6e 64 | 2d 6f 66 2d 70 72 6f 63 | tcl-end|-of-proc|
|00002a50| 29 20 5b 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |) [begin|ning-of-|
|00002a60| 70 72 6f 63 5d 20 28 22 | 42 65 67 69 6e 6e 69 6e |proc] ("|Beginnin|
|00002a70| 67 20 4f 66 20 50 72 6f | 63 22 20 2e 20 74 63 6c |g Of Pro|c" . tcl|
|00002a80| 2d 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 70 72 |-beginni|ng-of-pr|
|00002a90| 6f 63 29 20 5b 73 65 6e | 64 2d 74 63 6c 2d 72 65 |oc) [sen|d-tcl-re|
|00002aa0| 67 69 6f 6e 5d 20 28 22 | 53 65 6e 64 20 54 63 6c |gion] ("|Send Tcl|
|00002ab0| 2d 52 65 67 69 6f 6e 22 | 20 2e 20 74 63 6c 2d 73 |-Region"| . tcl-s|
|00002ac0| 65 6e 64 2d 74 63 6c 2d | 72 65 67 69 6f 6e 29 20 |end-tcl-|region) |
|00002ad0| 5b 73 65 74 2d 74 63 6c | 2d 72 65 67 69 6f 2d 65 |[set-tcl|-regio-e|
|00002ae0| 6e 64 5d 20 28 22 53 65 | 74 20 54 63 6c 2d 52 65 |nd] ("Se|t Tcl-Re|
|00002af0| 67 69 6f 6e 20 45 6e 64 | 22 20 2e 20 74 63 6c 2d |gion End|" . tcl-|
|00002b00| 73 65 74 2d 74 63 6c 2d | 72 65 67 69 6f 6e 2d 65 |set-tcl-|region-e|
|00002b10| 6e 64 29 20 5b 73 65 74 | 2d 74 63 6c 2d 72 65 67 |nd) [set|-tcl-reg|
|00002b20| 69 6f 6e 2d 73 74 61 72 | 74 5d 20 28 22 53 65 74 |ion-star|t] ("Set|
|00002b30| 20 54 63 6c 2d 52 65 67 | 69 6f 6e 20 53 74 61 72 | Tcl-Reg|ion Star|
|00002b40| 74 22 20 2e 20 74 63 6c | 2d 73 65 74 2d 74 63 6c |t" . tcl|-set-tcl|
|00002b50| 2d 72 65 67 69 6f 6e 2d | 73 74 61 72 74 29 20 5b |-region-|start) [|
|00002b60| 73 65 6e 64 2d 63 75 72 | 72 65 6e 74 2d 6c 69 6e |send-cur|rent-lin|
|00002b70| 65 5d 20 28 22 53 65 6e | 64 20 43 75 72 72 65 6e |e] ("Sen|d Curren|
|00002b80| 74 20 4c 69 6e 65 22 20 | 2e 20 74 63 6c 2d 73 65 |t Line" |. tcl-se|
|00002b90| 6e 64 2d 63 75 72 72 65 | 6e 74 2d 6c 69 6e 65 29 |nd-curre|nt-line)|
|00002ba0| 20 5b 73 65 6e 64 2d 72 | 65 67 69 6f 6e 5d 20 28 | [send-r|egion] (|
|00002bb0| 22 53 65 6e 64 20 52 65 | 67 69 6f 6e 22 20 2e 20 |"Send Re|gion" . |
|00002bc0| 74 63 6c 2d 73 65 6e 64 | 2d 72 65 67 69 6f 6e 29 |tcl-send|-region)|
|00002bd0| 20 5b 73 65 6e 64 2d 70 | 72 6f 63 5d 20 28 22 53 | [send-p|roc] ("S|
|00002be0| 65 6e 64 20 50 72 6f 63 | 22 20 2e 20 74 63 6c 2d |end Proc|" . tcl-|
|00002bf0| 73 65 6e 64 2d 70 72 6f | 63 29 20 5b 73 65 6e 64 |send-pro|c) [send|
|00002c00| 2d 62 75 66 66 65 72 5d | 20 28 22 53 65 6e 64 20 |-buffer]| ("Send |
|00002c10| 42 75 66 66 65 72 22 20 | 2e 20 74 63 6c 2d 73 65 |Buffer" |. tcl-se|
|00002c20| 6e 64 2d 62 75 66 66 65 | 72 29 20 70 72 6f 76 69 |nd-buffe|r) provi|
|00002c30| 64 65 20 74 63 6c 2d 6d | 6f 64 65 5d 20 34 29 0a |de tcl-m|ode] 4).|
+--------+-------------------------+-------------------------+--------+--------+